home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Language/OS - Multiplatform Resource Library
/
LANGUAGE OS.iso
/
t3_1
/
risc_src.lha
/
risc_sources
/
xlib
/
xcolor.t
< prev
next >
Wrap
Text File
|
1990-06-01
|
827b
|
15 lines
(herald xcolor (env tsys (xlib interface)))
(DEFINE (MAKE-XCOLOR) (CONS 'XCOLORP (MAKE-BYTEV 12)))
(DEFINE (XCOLOR-PIXEL X) (MREF-INTEGER (CHK-XCOLORP X) 0))
(DEFINE (XCOLOR-PIXEL! X Y) (SET-MREF-INTEGER! (CHK-XCOLORP X) 0 Y))
(DEFINE (XCOLOR-RED X) (MREF-16-U (CHK-XCOLORP X) 4))
(DEFINE (XCOLOR-RED! X Y) (SET-MREF-16-U! (CHK-XCOLORP X) 4 Y))
(DEFINE (XCOLOR-GREEN X) (MREF-16-U (CHK-XCOLORP X) 6))
(DEFINE (XCOLOR-GREEN! X Y) (SET-MREF-16-U! (CHK-XCOLORP X) 6 Y))
(DEFINE (XCOLOR-BLUE X) (MREF-16-U (CHK-XCOLORP X) 8))
(DEFINE (XCOLOR-BLUE! X Y) (SET-MREF-16-U! (CHK-XCOLORP X) 8 Y))
(DEFINE (XCOLOR-FLAGS X) (MREF-8-U (CHK-XCOLORP X) 10))
(DEFINE (XCOLOR-FLAGS! X Y) (SET-MREF-8-U! (CHK-XCOLORP X) 10 Y))
(DEFINE (XCOLOR-PAD X) (MREF-8-U (CHK-XCOLORP X) 11))
(DEFINE (XCOLOR-PAD! X Y) (SET-MREF-8-U! (CHK-XCOLORP X) 11 Y))